home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pas_0493.zip / NOSPEAK.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-15  |  2KB  |  41 lines
  1. {─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
  2. Msg  : 432 of 442
  3. From : Steven Tallent                      1:3811/210.0         10 Apr 93  11:58
  4. To   : Jack Cross
  5. Subj : Speaker Off
  6. ────────────────────────────────────────────────────────────────────────────────
  7.  -=> Quoting Jack Cross to All <=-
  8.  
  9.  JC> I am look for a piece of code [...] that will turn off the speaker.
  10.  
  11. This is tested code, and should do the trick.  It does its work by
  12. turning off the PC speaker 18.2 times per second.  This should reduce
  13. any sound to maybe a click or two.  Unfortunately, some games and
  14. music software will bypass it (ModPlay, Wolfenstein), but most beeps
  15. and whistles will be gone.  This is a TSR program, and takes about 3k
  16. memory (yuk), but you can load it high if you want.  I've found it
  17. especially useful during late-night BBSing (no alarms at connect/file
  18. xfer finish). Hope this does the trick!  Considering its size and
  19. relative isolation from normal programs, I didn't see fit to use CLI/STI. }
  20.  
  21. {$M 1024,0,0}  {BTW, is there any way to make this smaller?!?}
  22. {$N-,S-,G+} { Use g- for 8088 systems, g+ for V20 and above }
  23. PROGRAM NoSpeak;
  24. USES Dos;
  25.  
  26. PROCEDURE ShutOff; INTERRUPT;
  27. BEGIN
  28.   Port [97] := Port[97] and 253; {Turn off speaker and disconnect timer}
  29.   end;
  30.  
  31. BEGIN
  32.   SetIntVec( $1C, @ShutOff);
  33.   Keep(0);
  34.   end.
  35.  
  36. ... Cliche: the sound a French door makes when closing.
  37. ___ Blue Wave/QWK v2.12
  38. --- Renegade v04-05 Beta
  39.  * Origin: Pink's Place - Renegade Style (409)883-8344/4049 (1:3811/210)
  40.  
  41.